home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / jazlib.arc / JZDELETE.C < prev    next >
Text File  |  1988-12-18  |  1KB  |  40 lines
  1. /*
  2. ┌────────────────────────────────────────────────────────────────────────────┐
  3. │jzdelete.c                                     │
  4. │Delete an item from the window list.                         │
  5. │                                         │
  6. │See screen.dmo for examples                             │
  7. │                                         │
  8. │ (C) JazSoft Software by Jack A. Zucker (301) 794-5950              │
  9. └────────────────────────────────────────────────────────────────────────────┘
  10. */
  11.  
  12. #include <jaz.h>
  13. #include <jzscreen.h>
  14. extern THEADER g_header;
  15. jzdelete(fnum)
  16. int fnum;
  17. {
  18.   TWINDOW *wtemp,*wptr;
  19.  
  20.   if ( ! g_header.first ) return;    /* exit routine if empty list */
  21.  
  22.   wtemp = g_header.first;
  23.   if ( wtemp->number == fnum) g_header.first = wtemp->next;
  24.   else {
  25.     do {
  26.       wptr = wtemp;
  27.       wtemp = wtemp->next;
  28.     } while (wtemp->number != fnum && wtemp);
  29.     if (wtemp) {
  30.       if (g_header.last == wtemp) g_header.last = wtemp->next;
  31.       wptr->next = wtemp->next;
  32.     }
  33.   }
  34.   free((int *) wtemp->buf);
  35.   free((TWINDOW *) wtemp);
  36.   g_header.length--;
  37. }
  38.  
  39.  
  40.